(library (middleware)
  (export logging-middleware)
  (import
    ;; language base
    (rnrs base)
    ;; lambda forms from guile
    (only (guile) lambda* λ)
    ;; for request-path-components
    (web request)
    ;; for log:debug
    (prefix (logging) log:)
    (request-utils)))


(define logging-middleware
  (λ (request body)
    "The logging middleware takes care of logging to stdout
whenever a request comes in. We can imagine all sorts of
logging here."
    (log:debug "responding for request-path-components:"
               (request-path-components request))))
